perm filename NOTH.F4[1,ALS] blob
sn#030922
filedate 1973-03-22 generic text, type T, neo UTF8
00100 DO 1 J=1,100 00200 TYPE 2,J 00300 1 CONTINUE 00400 2 FORMAT(1X,1I4) 00500 STOP 00600 END